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ABSTRACT 

This Memorandum is a manual or guide for users of 
the PILOT computer model. Section I is an introductory explanation of 
the purposes of the model. Section II and III describe the lata 
inputs and program outputs. They provide a listing of a sample input 
deck and a sample printout of each of the six sets of output data. 
Section IV is a detailed explanation, illustrated by flowcharts, of 
the routines involved in entering the data inputs, computing 
requirements for new pilots and for cross-training of pilots, 
searching for means by which to fill the requirements, and computing 
commission training entrants and graduates. The PILOT model program 
was written in FORTRAN IV. It uses 1‘i(K bytes of core on a 360/65 
computer. As indicated above, all input data is read from cards and 
the output is printed. The final section of the Memorandum presents a 
symbolic listing of the FORTRAN TV computer program. For related 
documents see AC 010 340-345 and AC 010 347. (Author) 
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PREFACE 



In April 1967, the Office of the Assistant Secretary of Defense 
(Manpower and Reserve Affairs) formed a Pilot Advisory Committee to 
study "Pilots as a National Resource." The Committee consisted of the 
Assistant Secretary and a representative of each of the three Services. 
Steff members from Rand were invited to attend the early meetings of 
the Committee. The outgrowth was that the Air Force member requested 
Rand to accept responsibility for examining the Air Force pilot train- 
ing process. The objective of the Rand Pilot Training Study was to de- 
velop a aeries of computer models for use in estimating the resources 
required to produce pilots and the costs of training them. Further, 
the models were to be designed for sensitivity analyses and long-range 
planning. 

For the convenience of readers whose interests may not extend to 
all aspects of the pilot training process, the results of the study are 
presented in eight volumes, as follows: 



Volume 

I 


RM-6080-PR 


The Pilot Training Study: Personnel Flow and the 

PILOT Model, by V. E. Mooz. 


II 


RM-6081-PR 


The Pilot Training Study: A User's Guide to the 

PILOV Model, by Lois Littleton. 


III 


RM-6082-PR 


The Pilot Training Study: Precommissioning Train- 

ing, by J. W. Cook. 


IV 


RM-6083-PR 


The Pilot Training Study: A Cost-Estimating Model 

for Undergraduate Pilot Training, by S. L. Allison. 


V 


RM-6084-PR 


The Pilot Training Study: A User's Guide to the 

Undergraduate Pilot Training Model, by Lois Littleton. 


VI 


RM-6085-PR 


Ihe Pilot Training Study: Advanced Pilot Training, 

by P, J. Kennedy* 


VII 


RM-6086-PR 


The Pilot Training Study: A Cost -Estimating Model 

for Advanced Pilot Training, by L. E. Knollmeyer* 


VIII 


RM-6087-PR 


The Pilot Training Study: A User's Guide to the 

Advanced Pilot Training Computer Cost Model (APT), 
by H. E. Boren, Jr. 
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This Memorandum, Volume II of the series, describes the computer 
program for a pilot flow simulator called the PILOT Model. As ex- 
plained in Volume I, the PILOT model is a representation of the flow 
of pilots through the training process — precommissioning, and under- 
graduate and advanced pilot training. The model also simulates the move 
ment of pilots to and from their subsequent assignments, that is, the 
flow of pilots into and out of desk jobs, flying jobs, and the advanced 
training schools to which they are sent for the additional instruction 
(cross-training) required to qualify them to fly a different type and 
*>odel of aircraft. It is suggested, therefore, that the user read Vol- 
ume 1 for an understanding of the total process of training USAF pilots. 

The PILOT model may be used to estimate the effects of alternative 
policies on these Pilot flows and the effect of these flows, in turn, 
upon training rates. The PILOT model may also be used in combination 
with (used to provide inputs to) the models representing pre commission- 
ing training end undergraduate and advanced pilot training activities, 
This coupling of the individual pilot training models provides a simu- 
lation of the entire Air Force training process that may be used to 
estimate the overall impact upon costs of pilot training alternatives. 
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SUMMARY 



This Memorandum is a manual or guide for users of the PILOT model. 
Section I is an introductory explanation of the purposes of the model. 
Sections II and III describe the data Inputs and program outputs. They 
provide a listing of a sample input deck and a sample printout of sach 
of the six sets of output data. Section IV is a detailed explanation, 
illustrated by flowcharts, of the routines involved in entering r he 
data inputs, computing requirements for nev pilots and for cross-training 
of pilots, searching for means by which to fill the requirements, and 
computing commission training entrants and graduates. 

The PILOT rood*l program was written in FORTRAN IV. It uses 116K 
bytes of core on a 360/65 computer. As indicated above, all input data 
is read from cards and the output is printed. 

The final section of the Memorandum presents a symbolic listing 
of the FORTRAN IV computer program. 
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. INTRODUCTION 



The purpose of the PILOT model is to simulate the flow of pilots 
through formal training and into the jobs in which they ar retired. 
Air Vorce formal training for the production of pilots cc«' r ts 



1. Air Force Academy (AFA) , Reserve Officer Training C pb (ROiC) 
and Officer Training School (OTS) programs. The Pre corollas ion - 
Ing Training programs are treated a a a part of the pilot train- 
ing process because only commissioned officers are admitted 

to pilot training. (The PILOT model computer program refers 
to the Precommissioning Training programs as ’’commission 
training/') 

2. Undergraduate Pilot Training (UPT) . After receiving his com 
mission, the pilot candidate is given flying training at one 
of ten UPT bases. It is through successful completion of this 
program that he earns his pilot's wings. 

3. Survival School (SS). Thin school provides instruction in 
basic techniques of survival in physically- or poiitically- 
hostile environments. This training is mandatory for all 
flight crevu. 

4. Advanced Pilot Training (APT). This training qualifies the 
pilot to fly a specific type and model of operational aircraft. 
It is conducted by organizations referred to, variously, as 
Combat Crew Training Schools (CCTS) , Replacement Training Units 
(RTU) or Transport Training Units (TTU) , or by the general 
designation of Advanced Pilot Training. (In the PILOT model 
computer program, all advanced pilot training is referred to 
simply as CCTS . ) 

Given the number of trained pilots required over a specified time 
period and d statement of the policy concerning flow of pilots between 
desk and flying assignments , * the computer program determines at what 
t: tnea and in what numbers pilots must enter and leave the various train- 
ing courses in order to meet the requirement. 

The program can process requirements for a maximum of 20 years, 

80 Aircraft systems and 3 categories of pilots. 



*Pilots are assumed to be required in both flying and nonflying 

Jobs. 
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II. PROGRAM INPUT DECK 



In thia section the format for each card type in the input deck 
is illustrated and the names of the data inputs are defined. 

The J:\put deck setup ia *3 follows: 

1. Run title card. 

2. One type 1 card. 

3. One type 2 card. 

4. One type 4 card for each weapon system. 

5. One type 6 card followed by a set of type 5 cards, for each 
year starting with the base year. (Within each type 5 set, 
there is a card for each weapon system and pilot type for which 
information exists.) 

6. One type 7 card for each year, beginning with the base year. 

7. One type 8 card for each year, beginning with the year follow- 

ing the base year. 

A sample input deck is illustrated in Fig. 1. 

Run title card . The run title can appear anywhere on this c rd. 



The 


card is read in a 20A4 


format. The first 


card in 


the input 


deck 


list 


ed in Fig. 1 ia a run t 


ltle card. 










Type 1 card. The type 


1 card is the run 


con:rcl 


card. It 


contains 


the 


following data: 












Data Name 


Position on Card 


Format 








’T* 


Col. 1 


11 








NBYR 


Cols. 5-6 


12 








NLYR 


Col. 11-12 


12 








NWPN 


Cola. 17-18 


12 







NBYR ia the bsae year, NLYR is the last year used in the run, and 
NWPN is the number of the last weapon system used in the run. 

The program can handle a maximum of 20 years, and 80 wespon sys- 
tems. Hence, 

NLYR - NBYR < 19 and NWPN < 80. 

The 19 yeara cannot straddle the century. 



The last two digits of the year are entered; for example, if the 
baae year is 1968, NBYR should be 66. 
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VARIATION NO 


. 8 


ON BASE 


CASE - 


- 8 t 


PILOT LOSS RATE, 


8 X ROTATION INTO 0ESKS 




1 


41 


52 




1 
















2 




20 


7 


20 


20 1460 


730 


90 365 


6000 


7000 1 


365 


4 


l 


l 




2 


3 


1 










9 


6 


• 08 










3900 


1 




18 


372 


41 


5 


41 


1 




l 


30000. 






.08 


U>8 


100. 100. 


9 


6 


• 08 






2460 


3900 


1 




18 


372 


42 


5 


42 


1 




1 


31000. 


.42414 


• 08 


.08 


100. 100. 


9 


6 


• 08 






2460 


3900 


1 




18 


372 


4-J 


5 


43 


1 




1 


32000. 


.41557 


• oe 


• 08 


100. 100. 


9 


6 


.08 










3900 


1 




18 


372 


44 


5 


44 


1 




1 


32000. 


•48666 


.08 


• 08 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


45 


5 


45 


1 




l 


32000. 


.48920 


• 08 


•12863 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


46 


5 


46 


1 




1 


30000 . 


•45254 


• 08 


•13807 


100. 100. 


9 


6 


.08 










3900 


1 




18 


372 


47 


5 


47 


1 




1 


28000. 


.47160 


.08 


•14875 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


48 


5 


*8 


1 




1 


26000. 


•49150 


.08 


.08405 


100. 100. 


9 


6 


.08 










3900 


1 




18 


372 


49 


5 


49 


1 




1 


26000. 


.51235 


.08 


.08474 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


50 


5 


50 


I 




1 


26000. 


• 5 143T 


.08 


• 08 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


51 


5 


51 


X 




1 


27000. 


.42998 


• 08 


• 08 


100. 100. 


9 


6 


• 08 










3900 


1 




18 


372 


52 


5 


52 


l 




l 


28000. 


.41963 


• 08 


• 08 


100. 100. 


9 


7 


41 


500 




1700 




80 


300 




.3 


• 1 .12 




7 


42 


500 




1700 




80 


300 




• 3 


• 1 .12 




7 


43 


500 




1700 




80 


300 




.3 


• 1 .12 




7 


44 


500 




1700 




80 


300 




.3 


.1 .12 




7 


45 


500 




1700 




80 


300 




.3 


• 1 .12 




7 


46 


500 




1700 




80 


300 




• 3 


a .12 




7 


47 


500 




1700 




80 


300 




• 3 


a .12 




7 


48 


500 




1700 




80 


300 




• 3 


a .12 




7 


49 


500 




1700 




80 


300 




.3 


a .12 




r 


50 


500 




1700 




80 


300 




• 3 


a .12 




i 


51 


500 




1700 




80 


300 




.3 


a .12 




7 


52 


500 




1700 




80 


300 




• 3 


a .12 


9 


e 


42. 


144 


.2 


.327 


• 038 


• 299 


.22 










« 


43. 


144 


• 2 


.327 


.038 


• 299 


• 22 










8 


44. 


144 


.2 


.327 


• 038 


.299 


• 22 










8 


45. 


144 


.2 


.327 


• 038 


.299 


• 22 










8 


46. 


144 


.2 


.327 


• 038 


.299 


• 22 










8 


47. 


144 


.2 


.327 


• 038 


• 299 


.22 










8 


48. 


144 


.2 


.327 


• 038 


• 299 


• 22 










8 


49. 


144 


.2 


.327 


• 038 


• 299 


• 22 










o 


50. 


144 


.2 


.327 


• 038 


.299 


.22 










8 


51. 


144 


.2 


.327 


.038 


.299 


• 22 










£ 


52. 


144 


.2 


.327 


• 038 


.299 


• 22 
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Fig# 1 - Simple Input Deck 
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Type 2 card . The contents of the type 2 card are described below. 
Pat a Name Position on Card Format 



"2" 


Col. 1 


ii 


Tl 


Cols. 6-9 


FA.O 


T2 


Cols. 12-15 


FA.O 


T3 


Cols. 18-21 


FA.O 


T4 


Cols. 24-27 


FA.O 


S41 


Cols. 30-33 


FA.O 


S42 


Cols. 36-39 


FA .0 


S43 


Cols. 42-45 


FA .0 


A64 


Cols. 48-51 


FA .0 


A3 


Cols. 54-59 


F6.0 


\65 


Cols. 68-73 


F6.0 


NA66 


Col. 75 


11 


A67 


Cols. 77-80 


FA.O 



T1 is the travel and leave time in days after CCTS. 

T2 is the travel and leave time in days after survival school. 

T3 is the travel and leave time in days after UPT. 

T4 is the travel and leave time in days after commission training. 

541 is the AF Academy length in days (£ 1460 days). 

542 is ROTC length in days (£ 1460 days). 

543 is OTS length in days (£ 1460 days). 

A64 is the time in days required to expand UPT. 

A3 is the number of desk Job pilots in the base year. 

A65 is the capacity of OTS. 

NA66 is 1 if OTS expansion is allowed or 
0 is OTS expansion is not allowed. 

A67 is the time In days required to expand OTS. 



Type 4 c ard . Each type 4 card pertains to a specific weapon sys- 
tem and contains the following data. 



Data Name 


Position on Card 


Format 


" 4 " 


Col, 1 


11 


NVP 


Colo. 2-4 


13 


NA7 


Cols. 9-12 


14 


NA10 


Cole. 17-20 


14 


NA11 


Cola. 25-28 


14 


NAIZ 


Cols. 33 36 


14 


IC 


Cols. 80 


11 



ERIC 



12 kU 
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NWP la the weapon system number. 

NA7 is the aircraft type of the weapon system: The type can be 

either bomber/cargo (NA7 » 1) or fighter (NA7 ■ 0). 

For cross-training pilots in this weapon system: 

* 

NA10 is the preference index for pilots from similar aircraft. 

NA11 is the preference index for pilots from dissimilar aircraft. 

NA12 is the preference index for pilots in desk Jobs. 

IC ■ 9 if card is the last type 4 card; otherwise, Col. 80 is blank. 



Type 6 card. The typ 


a 6 card contains 


the following 


Data Name 


Position on Card 


Format 


"6" 


Col. 1 


11 


A4 


Cols. 2-5 


F4.3 


A6 


Cols. 11-15 


F5.4 


A9 


Cols. 21-26 


F6.0 


A62 


Cols. 31-36 


F6.0 


NA63 


Col. 41 


11 


A20 


Cols. 46-51 


F6.0 


S2 


Cols. 56-60 


F5.0 


S3 


Cols. 66-70 


F5.0 


NYR 


Cols. 79-80 


12 


A4 is the pilot loss 


rate for pilots in 


desk Jobs in 



where the pilot loss rate describes all losses from the pilot 
inventory, including retirement, resignation, death, promotion, 



disability, etc. 

A6 is the attrition rate for CCTS in year NYR. 

A9 is the number of pilots in the UPT pipeline in year NYR. 



A62 is the UPT capacity in year NYR. 

NA63 * 1 if UPT expansion is allowed in year NYR; 

* 0 if UPT expansion is not allowed in year NYR. 

A20 is the number of pilots leaving UPT in year NY»: who have re- 
ceived pilot training but are not members of the Mr Force. 
S2 la survival school length in days in year NYR. 



The Index can be 1, 2, or 3 if thi source is the first, second, 
or third choice, respectively. Each of the three sources must have a 
unique preference assigned to it; i.e., no two sources can have the 
same preference Index. 
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S3 is UPT course length in days in year KYR. (The sum of S3 ie 
in the year after the base year and T4, the travel and leave 
time after commission training* mint be leas thin* or equal to, 
547.5 days; (S3(i) + T4 < 547.5). 

fype 5 card . The type 5 card contains the following information: 



Dots Name 


Position on Card 


Format 




Col, 1 


11 


NYR 


Col. ■ 2-4 


13 


NWP 


Cols. 9-12 


14 


NTP 


Cols. 17-20 


14 


Al 


Cols. 25-30 


F6.0 


A2 


Cols. 35-40 


F6.4 


A5 


Cols. 45-50 


F6.4 


ASA 


Cols. 55-60 


F6.4 


SI* 


Cols. 65-68 


F4.0 


SI** 


Cols. 71-74 


F4.0 


IC 


Col. 80 


11 



NYR is the year. NWP is the weapon system. NTP is the pilot type. 

For year NYR, weapon system NWP, and pilot type NTPs 

A1 is the required pilot inventory. 

A2 is the fraction of Ai desired through UPT. 

A5 is the pilot loss rate for pilots in cockpits. 

A5A is the rate at which pilots leave aircraft system NWP to 
transfer into desk jobs. 

SI is the length in days of CCTS. 

OCXS can be described as either a lung or a short course. For 
any year and weapon system type 1 pilots will take the short 
course if they are being cross-trained from a similar air- 
craft system, and type 2 and 3 pilots will take the long 
course. All pilots that are cross-trained from desk jobs 
or dissimilar aircraft systems will take the long course. 



Short course. This data should appear only on a card on which 
ntp ■ 1. 

** 

Long course. This data should appear only on a card on which 
NTP - 1. 
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IC • 9 on each type 5 card vhich ia the laat card in a type 5 set; 
otherwise, it is blank. 

Typo 7 card . The type 7 card contains data pertaining to rates of 
attrition during commission training and to numbers of UPT entrants. 



Data Name 


Fosltion on Card 


Format 


M yii 


Col. 1 


11 


NYR 


Cols. 5-6 


12 


A16 


Cols. 7-12 


F6.0 


A17 


Cols. 17-22 


F6.0 


A18 


Cola. 27-32 


ye o 


A19 


Cols. 37-42 


F6.0 


A27 


Cols. 57-60 


F4.3 


A28 


Cola. 63-66 


F4.3 


A29 


Cols. 69-72 


F4.3 


XC 


Col. 80 


11 



For year NYR: 

A16 is the number of AF Academy graduates entering UPT. 
A17 is the number of ROTO graduates entering UPT. 

A18 is the number of rated officers entering UPT. 

A19 is the number of non rated officers entering UPT. 

A27 is the attrition rate in the AF Academy. 

A28 la the attrition rate in ROIC. 

A29 is the attrition rate in OTS. 

IC ■ 9 in the last type 7 card. 



Type 8 card . The type 8 card contains information regarding at- 
trition in UPT. 



Data Name Position on Card Format 



“8" 


Col. 1 


11 


NYR 


Cols. 5-6 


12 


A21 


Cols. 7-10 


F4.3 


A22 


Cols. 13-16 


f 4.3 


A23 


Cols. 19-22 


F4.3 


A24 


Cols. 25-28 


F4.3 


A25 


Cols. 31-34 


F4.3 


A26 


Cols. 37-40 


F4.3 


IC 


Col. 80 


11 
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For year NYRs 

A21 is th«> attrition rate in UPT of AF Academy graduates. 
A22 is the attrition rate In UPT of ROTC graduates. 

A23 Is the attrit' , rate In UPT of OTS graduates. 

A24 la the attrition rate In UPT of rated officers. 

A25 la the attrition rate in UPT of nonrated officers. 

A26 la the attrition rate In UPT of others. 

XC ■ 9 on the last type 8 card. 
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III. PROGRAM OUTPUT 



The program printe six sets of information. A description and 
illustration of each set follow. 

The first page of output contains simply the run title, e*g., 
''Variation No* 8 on Base Case — 8£ pilot loss rate, 8% rotation into 
desks 

Under the title "Pilot Model Output - Main Information,** the fol- 
lowing information is printed for each year, weapon system, and pilot 
type (Fig* 2): 

1, Required pilot inventory, which is an input value. 

2* Number of pilots lost from the cockpit inventory at the end 
of the year. 

3. Number of pilots leaving the weapon system for desk Jobs at 
the end of the year. 

4. Net pilot requirement* 

5. Number of pilots desired through UPT. 

6* Number of pilots obtained through UPT* 

7. Number of pilots desired through cross-training. 

8. Number of pilots obtained through cross-training. 

9. Number of pilots upgraded. 

Under the title ''Pilot Output - Pilots Entering CCTS," for each 
weapon system the following information about CCTS is printed for all 
years (Fig. 3): 

1. Number of pilots entering CCTS from UPT, from similar A/C, 
from dissimilar A/C, u)d from desk jobs. 

2* Total entrants into CCTS* 

3* Total graduates from CCTS* 

Under the title "Inventory of Desk Job Pilots at Year's End," the 
invent ry of pilots in desk Jobs at the end of the year is printed for 
each year (Fig. 4). 
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Under the title '"Pilot Model Output - Commission Training, 11 the 
following information about commission training is printed for each 
year (see Fig. 5) : 

1. Number of AF Academy entrants. 

2. Number of AF Academy graduates* 

3. Number of ROTC entrants. 

4. Number of ROTC graduates* 

5. Number of OTS entrants. 

6* Number of OTS graduates. 

Finally, under the title ,f Pilot Mod^l Output - Entrants into UPT 
from Six Sources/’ the following information about UPT is printed for 
each year (see Fig. 6): 

1. Number of entrants into UPT by source: AF Academy, ROTC and 

OTS graduates, rated officers on active duty, nonrated offi- 
cers on active duty, and "Others.” 

2. Total number of UPT entrants. 

3. Total number of UPT graduates. 

4* A "Yes" or "No" answer as to whether UPT was expanded. 



"Others" Includes students from Alt National Guard, Karines and 
MAP who are given UPT training but who do not add to the pilot strength 
of the Air Force. UPT entrants also include a few Military and Naval 
Academy graduates. 
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Fig- 5 — Sample Program Output — ComniAssion Training 
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IV. PROGRAM DESCRIPTION 



PROGRAM STRUCTURE 

The program for the PILOT model is composed of a main routine 
(PILOT) and the following nine subroutines: READ2, READ4, READS, READ7, 

READ8, CROSS, TTIME , OUTP , and OUTPUT. 

The first five subroutines are used to read type 2, 4, 5, 7, and 
8 cards, respectively. Subroutine CPrSS determines the number oi pilots 
to be taken from a given source for CCTS cross-training. Given the end 
year of UPT, subroutine TTIKE computes the beginniug year of UPT, the 
end year of commission training, and the beginning years of the A? Acad- 
emy, ROIC and OTS training. Subroutine OUTPUT prints the information 
entitled "Pilot Model Output - Pilots Entering CCTS." Subroutine OUTP 
prints the information entitled ’’Pilot Model Output - Commission Train- 
ing 1 ' and "Pilot Model Output - Entrants into UPT from Six Sources." 

PROGRAM FLOW 

The Pilot program can be divided into four logical sections of exe- 
cution: 

1, Data input and initialization of variables. 

2, Computation of pilot requirements for a given year, all weapon 
systems and pilot types. 

3, An attempt to fill requirements for rev pilots and for cross- 
training for a given year, all weapon systems, and piloi types. 

4, Computation of commission training entrants and gradates for 
all years. 

Section 1 is executed initially. Then, tor each year, Sections 2 and 3 
are executed conoecutively ♦ Section 4 is executed last, 

A detailed description of each of the above four sections follows. 
All variable names beginning with an "A," "T M or "S" are input quanti- 
ties and wore defined in Section II of the Memorandum. All of the in- 
put data that represent a length of time are initially converted from 
days to fractions of a year. The subscripts used in the program are 
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N, W, and T where W represents a weapon system and T represents a pi- 
lot type, N represents a year relative to the base year 0; hence, if 
the real base year is 1968, the year 1970 would be represented by N * 2. 

Section 1: Data Input 

The data input deck has been described in Section II cf this Memo- 
randum. As this data deck is read, the program will print error mes- 
sages and then terminate execution if the: following error conditions 
are encountered: 

If thi! first, card in the input deck does not contain a M 1 M in col- 
umn 1, the following message is printed: "1" CARD IS MISSING FROM IN- 

PUT DECK# If the second card in the deck does not contain a u 2 n In 
coluna: 1, this meo. ^ge is printed: ”2" CARO IS MISSING FROM INPUT 

DECK. 

After the type 2 card, the type 4 cards are read. If the program 
encounters a card that does not contain a “4" in column 1, this message 
Is printed: CARD READ IS NOT A TYPE 4 CARD - CHECK FOR A MISPLaCED 
CARD IN THE TYPE 4 SECTION. This error statement will also be printed 
if a ,T 9 H does not appear in column 80 of the last type 4 card. The 
M 9" signals the end of the set of cards. If the "9 f1 does not appear, 
the program will read the next card, a type 6 card, "thinking 11 that it 
should be a type 4 card. 

If a weapon oystem number on a type 4 card exceeds the number SO, 
the following message is printed: WEAPON SYSTEM NUMBER ON TYPE 4 CARD 

EXCEEDS ALLOWABLE NUMBER. 

After the type 4 cards are read, the pregram expects to read one 
type 6 card follows i by a set of type 5 cards for each consecutive year 
starting with the base year. If a card without a "b" In colutm 1 1 b 
encountered when the program expects to read a type 6 card, the follow- 
ing message Is printed: A TYPE 6 CARD IS MISSING. If a type 6 card 

does not contain the right consecutive year, this message Is printed: 
TYPE 6 CARD DOES NOT CONTAIN THE RIGHT YEAR. 

Having read a type 6 card for a particular year, the program reads 
type 5 cards for that year until a ,, 9 ,< is encountered in column 80 of a 






-18- 



card. The "9" signals the last t:ype 5 card in this set. If a card does 
not contain a "5 1 ' in column 1, this message is printed: CARD READ IS 

NOT A TYPE 5 CARD - CHECK FOR A hi S PLACED CARD IN A TYPE 5 SECTION. 

If a type 5 card does not contain the same year as the preceding 
type 6 card, the following message is printed: A TYPE 5 CARD DOES NOT 

OONTAIN THE RIGHT YEAR. If the weapon system number is greater than 
30 or a pilot type number is greater than 3 on a type 5 card, the re- 
spective messages are printed: WEAPON SYSTEM NO. 0?: TYPE 5 CARD EX- 

CEEDS ALLOWABLE NUMBER; or, PILOT TYPE NO. ON A TYPE 5 CARD EXCEEDS 
ALLOWABLE NUMBER. 



After a type 6 card and all type 5 cards for the final year have 
been read, the program reads a type 7 card for each consecutive year 
beginning vitn the base year. A M 9 M in column 80 signals the last type 
7 card. Then, a type 8 card for each consecutive year is read begin 
ning with the year after the base year. Again> a f, 9 M in column 80 sig- 
nals the last type 8 card. If the type number is not correct on either 
a type 7 or 8 card, the following message is printed: 

CARD READ IS NOT A CARD - CHECK FOR A MISPLACED CARD 

IN THE TYPE SECTION. 



If either type card does not contain the right consecutive year, this 
message la printed: 



A TYPE { l } 



CARD DOES Wrt CONTAIN THE RIGHT YEAR. 



Data Initialisation . Except for the variable A 2, data initializa- 
tion is a straightforward setting to zero of all variables. A2^ w T 
is the fraction of the pilot requirement for year N, weapon system W, 
and pilot type T that is desired through UPT. A value of A 2 for the 
first year is computed by the program in order that all pilots in the 
UPT pipeline in the base year are put into the system. This computed 
A2 will then be used in the first year for the weapon systems and pi- 
lot types for which the required pilots would graduate from UPT in the 
base year. The input A2 la used for the retaining requirements in the 
first year. 
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The data used In computing A2 are y T’ ^0 17 T* and 

A 9 Q for all weapon systems W and pilot types T la year X for which the 
required pilots would graduate from UPT in Hie base year 0. An indi- 
cator INDC(NW,NT) is set to r, 2 ,r for each such weapon system NW and pi- 
lot type NT, At this time, the indicator INDC(NW,hT) is set to "1" 
if the required pilots in year 1 are found to have graduated from UPT 
before the base year. 

The flow chart in Fig, 7 illustrates the computation of A2. 

Section 2: Computation cf Pilot Requirements 

The procedure for computing pilot requirements is described for 
one year N, all weapon systems and pilot types. The procedure is ea 
follows: 

(1) For one weapon system, all pilot types, find the difference 
Pi between this year's required pilot inventory and the pilot inven- 
tory LP at the end of last year (see Fig, 8), 

(2) Try to fill the pilot requirement fo^ a type 1 pilot (Pl^ w 

with upgraded type 2 and type 3 pilots from th<? Inventory (LP^ and 

LP^) of year N-l. If upgraded type 2 and type 3 pilots are used from 
year N-l, an equal number of pilots are added to the pilt :• requirement 
for type 2 and type 3 pilots in year N, Having done thi? ^ry in the 

same manner to fill the pilot requirement, for a type 2 pi. . v . Pl^ w ^ 

with upgraded type 3 pilots from year N-l, UP2 and UP3 collect the 
upgraded type 2 and type 3 pilots, respectively, (see Fig. 9). 

(3) After the pilot requirements Pl^ y ^ have been computed and 

adjusted for one weapon system, all pilot types, the program determines 

the number of desired CCTS graduates P2^ w T and PS^^ w T from each of 

two sources, new people and cross-training, respectively, to fill the 

pilot requirements (see Fig, 10), If the year N is the first year and 

the required pilots PL. .. _ would have graduated from UPT before the 

N |W,T , 

base year (INDC(NW,NT) ■ 1), P2^ w T and P3 N w T are set to 0, These 
pilots are already in the system, 

(4) If Pl^ w T is negative, a surplus of pilots exists and will 
be assigned either to a bomber/caigo surplus pool P4^ or to a fighter 
surplus pool P5^, depending on the aircraft type of weapon system V, 
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Fig. 7— Flowchart of the computation of A2 for year 1 
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Fig. 8— Flowchart of the computation of pilot requirements 
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Fig. 9— Flowchart of the process of filling pilot requirements with upgraded pilots 
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Fig. 10— Flowchart of the computation of the desired graduates from each of two 
sources, new people and cross-training 
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these calculations ate completed for the thre®! pilot types, 
the program returns to "1" and executes "1", “2' 1 , and "3" for the next 
weapon system. After Che last weapon system has been processed, execu- 
tion proceeds to Section 3. 

Section 3: Filling Requirements for New 

Pilots and Pilots for Cross-Training 

In this section of the program an attempt is made to fill the re- 
quirements for new pilots, P2 N>W T , and the requirements for cross- 
trained pilots, P3^ one year N, all weapon systems and pilot 

types. 

A check ia made on each p2 N|WjT to see if it is positive or nega- 
tive. If it is negative, the program proceeds to make the same check 

P3 N,W,T‘ I£ P2 N,W,T 18 P° 8ttive » indicator IND is set to signal 
that a new pilot requirement is being processed. Now, given the year N 
in which new pilots are required, the program calculates the years in 
which they would have had to graduate from CCTS, enter CCTS, leave 
survival school, graduate from UPT, and graduate from commission train* 
ing in order to fill the requirement in year N. If the end year of 
commission training ia the base year or later, there ia sufficient time 
to train the required new people. An indicator IPIPE is set to 0 to 
indicate sufficient training time. If there is not enough time to 
train new people, IPIPE is set to 1. 

Under certain conditions the program will branch from a part not 
yet described into the calculation of training program years. This 
branch occurs when a cross-training requirement cannot be filled through 
cross-training. The program will try to fill the deficit with new pi- 
lots. If this branch is executed, IND - 1 to indicate that a croas- 
training request is being processed and P3 N w t contains the deficit. 

The preceding discussion ia illustrated in Fig, 11. 

Suppose that there is sufficient time to train new pilots to fill 
either a new pilot requirement P2 N y T for year N or the part of the 
croaa-training requirement ^ for year N that cannot be fi iled from 
from cross-training sources. If the attrition rate in CCTS (46) is 

* 

See p. 30 . 
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Flg. 11— Flowchart of the computation of the beginning and end years 
of UPT, survival school, and CCTS 
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j taken into consideration, enough pilots are scheduled to enter CCTS in 

! year 14 to produce the required number of graduates* The pilots sched- 

i uled to enter CCTS in year 14 are then scheduled to graduate from UPT 

in year 13, At this point, a check is made to determine whether the 
UPT capacity in year 13 has been exceeded. This capacity check is 
described later in this section. 

If there is insufficient iime to train new people to fill a re- 
quirement for year N, the UPT pipeline (A9) in year 13 is used as de- 
scribed below. 

The number of pilots required to enter CCTS in year 14 is compared 
with the number in the pipeline. If the requirement is lees than the 
pipeline, the requirement is taken from the pipeline and scheduled in- 
co CCTS in year 14. A UPT capacity check is not necessary because 
the pipeline is being used. If the requirement exceeds the pipeline, 
the total pipeline is scheduled to enter CCTS in year 14 and the defi- 
cit is handled either as an additional cross-training requirement if 
the original request was one for new people or as a call for reserves 
if the new people were needed to fill a deficient cross-training require- 
ment, If a reserve call-up is necessary, the following message is 
printed: 

RESERVES HAVE BEEN CALLED, FOR YEAR—, WP, SYS, — , PILOT 
TYPE—, CROSS-TRAINING REQUIREMENT CANNOT BE FILLED THROUGH 
CROSS-TRAINING, THERE IS NOT ENOUGH TIME 7.0 TRAIN NEW PEO- 
PLE AND THERE ARE NOT ENOUGH PIPELINE PILOTS TO FILL THE 
DEFICIT. 

The foregoing discussion is illustrated in Fig, 12, 

The UPT capacity check as mentioned earlier is accomplished in 

1 the following manner and illustrated in Fig, 13: The value of the in- 

1 

dicator ICAP can be 0, 1, or 2. If ICAP for year 13 is 1, the capacity 
of UPT in year 13 has alre -dy been exceeded, but UPT expansion is al- 
lowed (A63 j 2 ■ 1) and there is enough t.'ae to expand. Hence, UPT in 
year 13 can handle those people assigned to it. If ICAP for year 13 
is 0, the capacity in year 13 has not yet been exceeded. But the peo- 
ple added to the total UPT graduates in year 13, since the last UPT 
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Fig. 12 — Flowchart of the process of filling requirements 
for new people and cross-training 
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Flg. 13— Flowchart of Ihe process of checking UPT capacity 
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capacity check, may have forced the total beyond capacity. The total, 
therefore, la compared to the capacity. If capacity has not been ex- 
ceeded and expansion is allowed and there is enough time to expand, 

1CAP ia set to 1 vo indicate that \JPT can handle all pilot candidates 
assigned to it in year 13. If the capacity is exceeded and expansion 
either is not allowed or cannot be accomplished in the time available, 
ICAP is set to 2 to indicate that no more trainees can be assigned to 
UPT in year 13. Those that cannot be handled by UPT are deleted from 
the number of CCTS entrants in year 14, and become either an additional 
cross-training requirement or a reserve call-up, depending on the value 
of IND. If a reserve call-up is necessary, the following message is 
printed: 

RESERVES HAVE BEEN CALLED. FOR YEAR — » WP. SYS. — , PILOT 
TYPE—, CROSS-TRAINING REQUIREMENT CANNOT BE FILLED THROUGH 
CROSS-TRAINING. THERE IS ENOUGH TIME TO TRAIN NEW PEOPLE, 

BUT UPT CAPACITY HAS BEEN EXCEEDED AND EITHER EXPANSION IS 
NOT ALLOWED, OR THERE IS NOT ENOUGH TIME TO EXPAND UPT. 

Having processed a net/ pilot requirement for one weapon system 
and pilot type, the program attempts to fill the cross-training require- 
ment P3^ w ^ for that sa'je weapon system and pilot type. 

» P Vu.T “ lea c j than lero, the program continues and updates 
the desk Job inventory for year N. 

There are three sourcea from which people can be taken for CCTS 
cross-training: similar aircraft, dlosimllar aircraft, and desk jobs. 

Each source has been assigned a preference by weapon system. For the 
description that follows, assure that the similar aircraft source is 
first preferred (AIO^ » 1), the dissimilar aircraft source is second 
preferred (All„ * 2)» and .he desk Job source is third preferred 
(A12 w - 3). 

The program tries to fill P3 from the firat preferred source, sim- 
ilar aircraft. It computes the year 14 in which people would enter 
OCTS. The number of people required to enter CCTS in year 14 in order 
to fill tha requirement in year N is then compared either with the 
bomber /car go surplus pool P4, if the weapon system aircraft type it 
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bomber/ cargo (A7y ■ 1), or with the fighter surplus pool P5, if the 
weapon system aircraft type is fighter (A7^ * 0) . If the chosen pool 
is larger than the requirement, the required number of people are taken 
from the pool and scheduled to enter CCTS in year 14. Because this 
fills the cross-training requirement in year N for this weapon system 
and pilot type, the program then proceeds to update the desk inventory 
for year N. 

If the chosen source (in this illustration, similar aircraft) is 
not large enough, the entire pool is scheduled to enter CCTS in year 
14, and an attempt is made to fill the deficit from the second preferred 
source, dissimilar aircraft. 

The procedure for using the dissimilar aircraft source is the same 
as that for the similar aircraft source except for the choice of pool 
to be used. If the weapon system aircraft type is bomber/cargo, the 
fighter surplus pool will be usedj if the weapon system aircraft type 
is fighter, the bomber/ cargo surplus pool will be used. 

If the cross-training requirement cannot be completely filled by 
the second preferred source, the program tries the third source, that 
is , desk jojs. Again, the procedure for using the desk Job source is 
the same as for the other two sources except that there is only one 
pool to be used, namely, the desk Job inventory P6 from year N-l. 

If the total requirement P3 cannot be filled from these three 
sources of APT-tralned ilots, UPT is called upon to provide an input 
to APT to meet the shortage. If UPT cannot provide the full number 
needed or cannot provide them in sufficient time to eliminate the short- 
age, the reserves are called upon to fill whatever deficit remains. 

If a reserve call-up ia necessary, the following message is printers 

RESERVES HAVE BEEN CAILED. FOR YEAR—, WP. SYS. — , PILOT 

TYPE—, CROSS-TRAINING REQUIREMENT (WHICH INCLUDES PART OF 

THE NEW PEOPLE REQUIREMENT) CANNOT BE FILLED. 

r 

It should bo noted that a type 1 pilot will take the short course 
in CCTS if cross-trained from similar aircraft and the long course if 
cross-trained from either of the remaining sources. A type 2 or type 3 
pilot will take the long course in CCTS regardless of the source from 
which he is ta v l. 
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Figures 14, 15, and 16 illustrate the cross-training of pilots 
from the similar aircraft source, dissimilar aircraft source, and the 
desk Job source, respectively. 

After a new pilot requirement P2 and a cross-training requirement 
P3 for one vespon system W and pilot type T in year N have been proc- 
essed, the desk Job inventory P6 for year N is updated by the following: 

1. Transfer into desk job/3 from the pilot inventory in year N-l 
for weapon system W and pilot type T. 

2. Attrition from CCTS into desk Jobs in year II for weapon sys- 
tem W and pilot type T. 

3. Subtraction of the number of people taken from the desk Job 
Inventory in year N-l to be cross-trained in CCTS for weapon 
system W and pilot type T. 

After all P2 and P3 requirements for year N have been processed, 
the desk Job inventory for that year reaches its final total by: 

1. Addition of the pilots in the bomber/cargo and fighter surplus 
pools in the year N that have not been used. 

2. Addition of the pilota in the desk Job inventory at the begin- 
ning of year N-l. 

3. Subtraction of pilot losses from desk Jobs in year N-l. 

If the final total is negative, an error message stating this fact is 
printed and program execution is terminated. If P6 for year N is pos- 
itive, the program returns to Section 2 to calculate pilot requirements 
for year N+l, and continues through Section 3 to process new pilots and 
cross-training requirements for that year. After the final year has 
been processed, the program proceeds to Section 4. 

The desk Job inventory accumulation is illustrated in Fig. 17. 

Section 4: Computation of Commission Training 

E ntrants and Graduates 

After the pilot requirements for all years, weapon systems and 
pilot types have been processed, the number of UPT graduates P12 in 
each year ia known. Using the value of P12 in esch year, the program 
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Fig. 14— Flowchart o( the process of cross-training pilots 
in similar aircraft 
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Fig. 15— Flowchart of the process of cross -training pilots 
In dissimilar aircraft 
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Fig. 16 — Flowchart of the process of cross-training pilots 
from desk jobs 
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Fig, 17— Flowchart of the process of updating the desk job inventory 
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schedules people through commission training and into UPT in the follow- 
ing manner: 

Given year N as the end year of UPT, successive computations are 
m?de (going back in time; of the beginning year of UPT (II) , the end 
yesr of commission training (12), the beginning year of the AF Academy 
(I3A), the beginning year of ROTO (I3B), and the beginning year of OTS 
(I3C) . The number of pilot trainees entering UPT in year II from the 
AF Academy (A1 j) , frcm ROIC (A17), and from active duty (A18 and A19) 
is then totalled. This total is reduced by deducting the number of 
UPT attritions in year N and the result is compared with the number 
of required UPT graduates P12 in year N. If the computed number of 
UPT graduates is less than the number required, the deficit is filled 
by scheduling more people into UPT from OTS in year N. If the number 
of pilot candidates in UPT exceeds the number required to graduate, the 
number of people cominp from ROTC is diminished proportionately. (If 
ROTC output goes negative, a message stating this fact is printed.) 

If it is assumed that the number of UPT entrants from each UPT 
source has been adjusted to match the UPT graduation requirement, the 
required numbers of people are scheduled to enter the AF Academy, ROTC, 
and OTS in years I3A, I3B, and I3C, respectively. 

Figure 18 ill atrates the commission training scheduling procedure. 




44 . 



- 37 - 




Fig. 18— Flowchart of the process of scheduling pilots 
through commission training 
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Appendix 



FORTRAN IV (360/65) LISTING OF 
PILOT MODEL COMPUTER PROGRAM 
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COMMON/WEAP/ NA7< 80 ) , NA10(80I, NAIH80), NA12(80) 

COMMON/DATA/ A1I2,80,3I, 42(80,3), A5I2.80.3), A5AI 2,80,3), 

1 SH21.80.3) 

COMMON/ INF01/ A lt> ( 25 ) , A17I25), A18(22), A1.9(22), 

1 A27 (22), A28(22). A29(?2> 

COMMON/ I NF02/ A2 1 ( 2 1 ) • A22I21), 423(21), A24(2l), A25(21), *26(21) 
DIMENSION A4 ( 2 1 ) , A6<21), A9(2l)» A62I21), NA63(21), 

1 S2 1 21 ) t S3I2N 

01 MENS ION PI (8C, 3) ,PJ< 3) ,P2( 80,3) , P3(80,3), P6(20>, 

1 I CAP ( 2 1 ) , PI 2 ( 2 1 I , PJ2I80), PJ3I80) 

COMMON/SAVC/ PTG(«0,2l>, P8S(80,2l), P9S(80,21), P10S(80,21)t 
1 P 1 1SI 80, 21) 

DIMENSION PP13I25), M14(25>, P15I25), PI6I25), A20I22I 
DIMENSION CARDI20) , INDC (80, 3) 

GIVEN A PARTICULAR WEAPON SYSTEM U, 

NA7 IS THE AIRCRAFT TYPE, 

NA 10 IS THE CROSS TRAINING PRtFf KENCE INDEX FOR SOURCE A, 

N A 1 1 IS THE CROSS TRAINING PREFERENCE INOEX FOR SOURCE 8, 

N A 1 2 IS THE CROSS TRAINING PREFERENCE INDEX FOR SOURCE C. 



GWEN A « 
44 
A(. 
A9 
A6? 
NA63 



IS 

IS 

IS 

IS 

IS 



ICULAR YEAR, 
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A 1 6 


IS 


THF 


NO. OF AF 


ACAO 


. GRAO. 


ENTERING UPf, 


AIT 


IS 


T HC 


NO. OF ROTC GRAO. 


ENT 


ERING UPT, 


Aie 


IS 


THC* 


NO. OF RATFO OFF ICERS 


ENTERING UPT, 


A 1 9 


IS 


THE 


NO. OF NON-RATEO 1 


OFF 1 


CFRS 


, ENTERING UPT, 


A2C 


IS 
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ING 
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A? 1 


IS 


THE 


AT TR 1 TION 


RATE 


IN 


UPT 


OF 


AF ACAO. GRADUATES, 


l\?2 


IS 


THE 


ATTRITION 


PATE 


1 N 


UPf 


OF 


ROTC GRADUATES, 
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IS 


THE 
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RATE 
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OESK J08S. 

SI IS THE TRAINING TIME REQUIRED FOR CCTS. 



REAO IN RUN DESCRIPTION. 

READI 5, 1000) ( CARD! lit I - 1.201 

1000 FORMAT 1 20A4 ) 

WRITE<6, 1001) ICAROC), I * 1,20) 

1001 FORMATI1H1.25X.20A4) 

REAO IN BASE YEAR, LAST YFAR, AND NUMBER UF WEAPON SYSTEMS. 

READI 5, 1002 ) I, NBYR.NtYR, NWPN 

1002 FORMAT! II, 3X, 3! 12.4X)) 

IF! I.E0.1) GO TO 2 
WRITE! 6,2001 ) 

2001 FORMAT ( 36H1 • 1 • CARO IS MISSING FROM 1 ^PuT DECK) 

CAL'. EXIT 



REAO Tl, T2, T3, T4, S41, S42, S43, A64 , A3 , A65 ,N466 , A67 

T 1 IS TRAVEL ♦ LEAVE TIME AFTER CCTS. 

T 2 IS TRAVEL + LEAVE TIME AFTER SURVIVAL SCHOOL, 

T3 IS TRAVEL + LEAVE TIME AFTER UPT, 

T4 IS TRAVEL + LEAVE TIME BEFORE UPT, 

541 IS TRAINING TIME FOR THE ACADEMY, 

542 IS TRAINING TIME FOR ROTC, 

543 IS TRAINING TIME FOR OTS, 

A64 IS UPT EXPANSION TIME. 

A3 IS NO. OF OESK JOB PILOTS IN BASE YEAR, 

A65 IS OTS CAPACITY 

NA66 IS 1 IF OTS EXPANSION IS ALLOWEO, 0 IF OTS EXPANSION IS NOT ALLOWFO. 
467 IS OTS EXPANSION TIME. 



2 CALL REA02! T1,T2,T3,T4,S41,S42,S43,A64, AT .DUMMY , A65 , N466, A67) 



RFAO IN NA7, NA10, NA11, NA12 FOR ALL Fit APUN SYSTEMS 



CALL REA04 



INITIALIZE VARIABLES 



5 NY » 0 
XI * 0. 

X2 - 0. 

X3 b o. 

X3A * 0. 

00 6 I * 1,2 

00 6 J * l.NWPN 




4 # 
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00 6 K = 1,3 
All I,J,K) = 0. 

A5I I , J,K ) = 0. 

ASAI !, J,K) « 0. 

IF! I.EQ.l) GO TO 6 
A2(J,K» * 0. 

INDCl J,K I « 0 

6 CONTINUF 

DO 7 l * 1,21 
ICAPI M * 0 

7 P 1 2 ( I ) = 0. 

00 e I - 1 , NWPN 

on * j » 1,21 

P T G ( I »,J ) * 0. 

P8SI I'JI - 0. 

P9SU.JI * 0. 

P10SI Iv J) * 0. 

8 P11S(I,J> * 0. 

READ A4, A6, A9, A62, A63, A20, A64, S2, S3 FOR ONE YEAR 
18 IFINY.EQ.O) NY > 21 

READI 5, 1004) I, A4INY) , A6 ( NY ) , A9(NY>, A62INYI, NA63INY), 
1 A20INYI , S2INY), S3( NY J , NYR 

1004 F0RMAT(11,F4.3,SX,F5.4,5X,2<F6.0,4X), II. 4X, F6.0.4X, 

1 2IF5. 0,5X1 , 3X, 12) 

IF ( I.E0.6) GO TO 10 
HKITEI6, 1040) 

1040 FORMAT I 25H1A TYPE 6 CARD IS HISSING) 

CALL EXIT 

10 IFINYR.EQ.INY ♦ NBYRl ) GO TO lb 

IFC INYR.EO.NBYR) .AND. (NY.E0.21) ) GO TO 16 
HRITEI6, 11401 

1140 FORMAT I 44H1 TYPE 6 CARO COES NOT CONTAIN THE RIGHT YEAR) 
CALL EXIT 



CONVERT S2, S3 FROM DAYS TO FRACTIONS OF A YEAR. 

16 S2INY) * S2INYI/365. 

S3INY 1 * S3INYI/365. 

IFlNY.rO. 21) NY « 0 

READ IN Al, A2, A5, ASA AND SI FOR ONE YEAR, ALL WEAPON SYSTEMS AND 
PILOT TYPES. 

ICAV « 0 

17 CALL RE ADS I NY ,NBYR,NW,NTP, IC) 



IFINY.NE. 1 ) GO TO 19 
C 

C IF NY IS FIRST YEAR, ACCUMULATE INFORMATION TO COMPUTE A2 BAR • 

C A2BAR MILL REPLACE A2 FOR ALL REQUIREMENTS IN FIRST YEAR FOR WHICH 

O 
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C THOSE PILOTS LEAVE UPT IN THE BASE YEAR, IF THEY LEAVE BEFORE OR AFTER 
C THE BASE YEAR INFORMATION ABOUT THESE PILOTS HILL NOT BE USEO IN 
C COMPUTING A2BAR. 

C 

Yi « I. - T 1 

11 * INTI Yl * .5) 

IFII1.FQ.O) II * 21 

Y2 * Yl - SIC 1 1 »NW»NTP) - T2 

12 * INTIY2 ♦ .5) 

Y3 » Y2 - S2I 12) - T3 
IFIY3.G1..5) GO TO i9 
If IY3.LT. (-.5)) GO TO 15 

IF! All 2 tNWiNTP ) . LT • I A1 ( 1* Nd»NTP) * ( 1.-A5I l »NW»NTP ) ) ) ) GO TO 19 
C 

C ACCUMULATE INFORMATION TO COMPUTE A2BAR. 

C 

XI * XI ♦ All 1 * NH * NTP ) * ( 1 . - A5I 1 »NW«NTP) I 
X? * X2 ♦ All l,NHfNTP) 

X3 * X 1 4 All 2,NM t NTP) 

X3A a X3A ♦ A5A1 ltNWtNTP) 

IFIA5AI l,NH,NTP).NE.O. I ICAV a JCAV 4 1 

SET AN INOICATOR TO INOICATE THAT THE PILOTS REQU1REO IN YEAR 1« 

WEAPON SYSTEM NWt ANO PILOT TYPE NTP WILL COME FROM THE BASE YEAR 
UPT PIPELINE. 



INOClNWtNTP* > 2 
GO TO 19 
C 

C FOR WEAPON SYSTEM NW ANO PILOT TYPE NTP* THE PILOTS REQUIRED IN THE 
C FIRST YEAR WILL LEAVE UPT BEFORE THE BASE YEAR. SET INOC * 1 TO INDICATE 
C THAT THE PILOT REQUIREMENTS WILL BE SAT1SFIEO FROM CCTS INVENTORY 
C IN THE BASE YEAR. 

C 

15 INOClNWtNTP) a i 
C 

19 IFI IC.EQ.9) GO TO 20 
GO TO 17 

20 IFINY.NE.O) GO TO 11 
C 

GO TO 61 
C 

11 IFINY.NE.I) GO TO 21 
C 

C COMPUTE A28AR 
C 

A2RAR a 0. 

ASABAR a o. 

IFI ICAV.EQ.O) GO TO 27 
A5ABAR a X3A/ICAV 
27 IFIX3.EQ.X1) GO TO 21 

A2BAR « A9I2l)«tl. - A6INY))/(X3 - XI) 

1FIA2BAR.LE.1.) GO TO 22 

23 IFI X2.EQ.0. ) GO TO 24 

A5A64R > A5ABAR 4 IA9t21)*tl. - AbtNY)) 4 Xi - X))/X2 

24 00 26 I > l.NWPN 
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00 26 J * 1,3 

IFItNOCU, JI.NS.2I GO TO 26 

X* » *6 ♦ All 1,1, J)*( 1. - A5A8AR - AS(1,I,J)I 
26 CONTINUE 
A2BAR * 0. 

IF1IK3 - XO.EQ.O.) GO TO 21 

A2BAR - A9( 21 >*( 1 . - A6tNY))/<X3 - X4J 

GO TO 21 

22 IFf A2BAR.GE.0.3 GO TO 21 
GO TO 23 
C 
C 

21 P* » 0. 

P5 * 0. 

DO SO NW * l.NMPN 
DO 51 NTP * 1,3 

IFUNY.EU.1».AND.(1NDC<NW,NTP|.EQ.2I) A2(NM,NTP) * A2BAR 

FOR A PARTICULAR YEAR, WEAPON SYSTEM ANO PILOT TYPE, PI IS THE 
PILOT REQUIREMENT ANO PJ IS THE PILOT INVENTORY AT THE END OF THE 
PRECEDING YEAR. 



C 

c 

c 

c 

c 

c 



c 

c 

c 

c 



c 



c 

c 

c 

c 

c 



PJ 1 NTP I * AU1,NW.NTPI*I1.-A5(1,NW,NTP)-A5A(1,NW,NT*>I1 

SI PI < NW, NTP ) « All 2 ,NW,NTP) - PJINTPI 

CHECK WHETHER THIS YEAR'S TYPE 1 OR TYPE 2 PILOT REQUIREMENT CAN BE FILLEO 
BY LAST YEAR'S TYPE 2 OR TYPE 3 PILOT INVENTORY. 

PJ2 ANO PJ3 WILL CONTAIN THE NO. OF UPGRAOEO TYPE 2 ANO TYPE 3 PILOTS 
RESPECTIVELY. 



IF t PI INW, 1 1 *L T.O. I GO TO 52 
IFIP1INW,1I.LE.IPJ(2) ♦ PJ( 3)1) GO TO S3 



PI FOR PILOT TYPE 1 CAN BE PARTIALLY FILLEO BY LAST YEAR'S TYPE 2 ANO 
TYPE 3 INVENTORY, PJI2I ANO PJI3I. 



P 1 1 NW, 2 1 * PI I NW, 2 1 ♦ 
PI (NW, 31 * PI 1 NW, 3 1 ♦ 
PI (NW, 1 1 * PUNW.ll - 
PJtll * PJ(l) ♦ PJI 2) 
PJ2INW1 * PJI 2 1 
P.I31NW) « PJI 3) 

PJ I 21 a 0. 

PJI 3) * 0. 

GO TO A9 



PJI 2 1 
PJI 31 

PJI 2) - PJ13I 
♦ PJI 31 



5? PJ21NW) - 0. 

PJ31NWI « 0. 

57 IF(Pl(NW,2).GE.O. ) GO TO 55 
GO TO A9 

S3 IF(P1INW,1|.LE.PJ<2)) GO TO 5* 



PI FOR PILOT TYPE 1 CAN BE FILLED BY LAST YEAR'S PILOT TYPE 2 ANO TYPE 3 
INVENTORY, PJI 2) ANO PJI 3). 



o 
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PJI1I * PJ(l) ♦ Pl(NW.l) 

P1(NW« 1 1 * Pl(NWfl) - PJl 2 ) 
P1CNV.21 * PHNW,2I ♦ PJ(2) 

PJl 31 * PJl 3) - PKNW.l) 

PHNW* 3 I > P11NW,3> + PlINW.ll 
PJ2INWI ■ PJC 2) 

PJ3INWI « PllNWyH 
PJl 2 I * 0. 

PKNHt II * 0. 

GO TO 57 



PI FOR PILOT TYPE I CAN BE FILLEO BY LAST YEAR'S PILOT TYPE 2 INVENTORY 

54 PJItl « PJIII ♦ PllNW,lJ 
PJl 2) « PJ(2) - P1INW,II 
P1INW,?I * Pl(NW,2) ♦ PI(NWil) 

PJ2INW) « P1INW,II 

PJ3INW) « 0. 

PUNK* 11*0. 

IF(PllNW,3).GT.O. I GO TO 57 
IFIPJI31.LE.0. I GO TO 49 

55 IF1PHNN,2I.LE.PJI3)) GO TO 56 

PI FOR PILOT TYPE 2 CAN BE PARTIALLY FILLEO BY LAST YEAR'S PILOT TYPE 3 
INVENTORY. 

PlINUi 2) • PI I NW« 2 ) «• PJIJI 
PJ12I * PJl 2) ♦ PJl 3) 

PI I NW* 3 1 • PI I NW* 3 1 ♦ PJl 31 
PJ3INW1 > PJ31NM) ♦ P J ( 31 
PJC3I * 0. 

GO TO 49 

PI FOR PILOT TYPE 2 CAN BE FILLEO BY LAST YEAR'S PILOT TYPE 3 INVENTORY 

56 PJl 31 « PJl 3) - P 1 1 NW* 2 I 

PI (NW* 3) « Pll NW* 31 * P 1 1 NW* 2 I 
PJI2I « PJl 21 ♦ PI I NW, 2 ) 

PJ3INW) • PJ31NW) ♦ P 1 ( NW * 2 1 
P1(NW,2) * 0. 

GO TO 49 

49 00 50 NTP « 1,3 

IFIPUNW.NTP) .GE.0.1 GO TO 30 

P21 NW* NTP 1 « 0. 

P3I NW* NTP I * 0. 



SURPLUS EXISTS - LAST YEAR'S INVENTORY EXCEEDS THIS YEAR'S RCCUIREO 
INVENTORY. 

IF!NA7(NW).EQ.l) GO TO 25 
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C ASSIGN SURPLUS TO FIGHTER GROUP 
C 

P5 * P5 - PlINW.NTPi 
GO TO 50 
C 

C ASSIGN SURPLUS TO BOMBER/CARGO GROUP 

25 PA * PA - PllNW, <TP) 

GO TO 50 

PILOT REQUIREMENT EXISTS FOR PRESENT YEAR, GET NUMBER 

OF GRADUATES OESIREO FROM EACH SOURCE IN PRESENT YEAR. 

NEW PFOPLF GRADUATES 

TO IFIlNY.EQ.l I .AND. (lNDC(NW.NTP).CQ.U) GO TO 31 
P2INW.NTP) * A2(NH.NTP)*P1INH.NTP) 

CROSS TRAINING GRADUATES 

P3INM.NTP I >11. - A2(NW.NTP))*PllNW,NTP) 

GO TO 50 

31 P2TNW.NTPI « 0. 

P3INW.NTP) « 0. 

50 CONTINUE 

IF NY * 1, CHECK IF THOSE UPT REQUIREMENTS P2, that will be taken 
FROM THE BASE YEAR PIPELINE. DEPLETE THE PIPELINE. IF NOT. AOO THOSE 

SURPLUS PIPELINE PILOTS INTO THE DESK JOB INVENTORY AT END OF HRST YEAR 

SURPLS * 0. 

IFINY.NE.l) GO TO 63 
PIPEL * D. 

DO 65 I * l.NWPN 
DO 65 J * 1.3 

IF I INDCI I . JI.NE.2 1 GO TO 65 
PIPEL * PIPEL ♦ P?(l,JI/tl. - A6( 1 ) ) 

65 CONTINUE 

ITIPIPEL.GE.A9(2n) GO TO 63 
SURPLS * IA9I2II - PIPEL3*! 1 > - A6I1M 

INITIALIZE P6 WHERE P6 WILL ACCUMULATE THE OESK JOB INVENTORY FOR THIS YEAR 

63 P6INYI * 0. 

IFINY.EQ.l) GO TO 101 
PP6 * P6INY - 1) 

GO TO 102 
101 PP6 * A3 

TRY TO TILL REQUIREMENTS FOR ONE YEAR, ALL WEAPON SYSTEMS AND PILOT TYPES. 
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C IS THERE A NEW PEOPLE REQUIREMENT 

100 Pll * 0. 

PSA * P3(NW,NTP) 

IFIP2INW,NTP) .LE.O.) GO TO 500 

THERE IS A NEW PEOPLE REQUIREMENT 

IN0 ® 0 

CHECK IE ENOUGH TIME HAS ELAPSED TO TRAIN NEH PEOPLE 

GIVEN VEAR NV TO BE THE VEAR IN WHICH PILOTS ARE NEEOEO» GOING BACK IN TIME 
II IS THE END YEAR OF CCTS, 

I A IS the BEGINNING YEAR OF CCTS' 

I? IS THE end YEAR OF SURVIVAL SCHOOL' 

IS IS THE ENO YEA P OF UPT. 

105 XN = NY 

XI - XN - T 1 

IFIXI.LT.I-. 511 GO TO 2C0 
II * INTI X 1 «- .51 
IFIti.EO.OI II * 21 

I A - INTI X * - Sll Il'NW.NTP) ♦ .51 
IF I I A.FC. 0) 14 • 21 

X2 « XI - Sll Il'NW'NTP) - T2 

IFIX2.LT.I-. 5)1 GO TO 200 
I? « INTIX2 ♦ .51 
IFI I2.EO.O) 12 * 21 

X3 * X2 - S2I 12) - T3 

IHXS.LT.I-. 5)) GO TO 2C0 
IS * INTIX3 ♦ .5) 

IFI IS.FQ.O) 13 » 21 

XA * X3 — SSI IS) - TA 

IEIXA.LT.I-. 5) ) GO 10 2C0 

CNOUCHT time has elapseo 

IPIPE * 0 

IFI INO.NE.O) GO TO 250 

NEW PEOPLE REQUIRED 10 GO INTO CCTS IN YEAR IA 

110 Pll * P2INW|NTP)/( l. - AM 1 1 ) I 
PIISINW'IA) « PllSINWilF) ♦ Pll 

UPT GRADUATES NECESSARY IN YEAR 13 
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CHECK WHETHER UPT GRAOUATES NECESSARY IN YEAR 13 HAVE ALREAOY EXCEEDED 
UPT CAPACITY. 



I CAP! 13) * 0 IF UPT CAPACITY HAS NOT BEEN EXCEEDED, 

ICAPII3I « I IF UPT CAPACITY HAS BEf N EXCEE0E0 BUT UPT EXPANSION IS 
ALLOWED AND THERE IS ENOUGH T I PE TO EXPAND, 

I CAP ( 1 3 1 « 2 IF UPT CAPACITY HAS BEEN EXCEEDED AND EITHER 
II NO EXPANSION SI ALLOWED OR 2» EXPANSION IS ALLOWED BUT THERE IS NO 
TIME TO EXPAND. 

153 IF( I CAP I 13I.EQ.0) GO TO 130 
IFMCAPI m.ECl.l) GO TO 154 

1C API 13) * 2, UPT CANNOT HANDLE THESE ADDITIONAL PEOPLE. CROSS TRAIN 
THESE PEOPLE «P7). 

(FUND.NE.O) GO TO 1510 
P7 * Pll 
GO TO 150 
1510 P7 * P13 
GO TO 150 

CAPACITY HAS NOT ALREADY BEEN EXCEEDED. 

CHECK WHETER ADDITIONAL UPT REQUIREMENT EXCEEDS CAPACITY. 

130 1FIIP12II3)*A20I 13) ) .LE.A62I 13)) GO TO 154 
CAPACITY HAS BEEN EXCEEDED FOR FIRST TIME THAT YfcAR. 

check whether expansion is allowed. 

IFINA63I m.EQ.O) GO TO 145 

EXPANSION IS ALLOWEO. 

CJECK WHETHER TIME EXISTS TO EXPAND 

IF I 1X4 - A 64) . LT > 0. ) GO TO 145 

TIME EXISTS 

ICAP(I3) * 1 

SINCE UPT HAS BEEN EXPANDED THIS YEAR, IN ACL SUCCESSIVE YEARS 
UPT REOUIREMNTS CAN ALL BE HANDLED. 

NN » NLYR - N6YR 
II « 13 ♦ 1 
00 900 IJ * 1 1 , NN 
900 ICAPIIJ) * I 

GO VO 154 

NO EXPANSION Al LOWED GR NOT TIME TO f XPANO 



o 
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145 P 7 * P12U3) - A62 (13) ♦ A20I13) 

ICAPII3) * 2 

150 P12(13) = A62II3) - A20II3) 

Pll * Pll - P7 

P11SINW.I4) » P 1 1 S I NW« 1 4) - P7 
IFIIND.EQ.l) 60 TO 155 

P3( NW» NTP ) » P3<NW»NTP) ♦ P7*U. - A6< 1 1 1 I 
GO TO 500 

UPT CAPACITY HAS BEEN EXCEEDED BUT EXPANSION IS ALLOWEO ANO THERE IS 
ENOUGH TIME TO EXPAND. 

154 JF( IND.EQ.O) GO 70 500 
GO TO 600 

155 NYEAR * NY ♦ NBYR 
WRITEI6.4010) NYEAR • NW* NTP 

4010 FORMAT 1 2 7H0RE SERVES HAVE BEEN CALL EO. /5X * 9HF0R YEAR «I2 f llH ( HP. S 
1YS. *I2*13Ht PILOT TYPE f ll'69H, CROSS TRAINING REQUIREMENT CANNOT 
2 BE FILLED THROUGH CROSS TRA I N ING. /fX * 1 1 2HTHERE IS ENOUGH TIME TO 
3TRAIN NEW PEOPLE* BUT UPT CAPACITY HAS BEEN EXCEEDED ANO EITHER EX 
4PANSI0N IS NOT ALL0WE0/5X* 43H OR THERE IS NOT ENOUGH TIME TO EXPA 
5ND UPT • I 
GO TO 600 

NOT ENOUGH TIME TO TRAIN NEW PEOPLE 
200 IPIPE - 1 

14 * I NT I XI - Sl( U«NW«NTP) ♦ .5) 

I F I I4.EQ.0) 14-21 

I FI IND.NE .0) GO TO 151 

P - P2 1 NW« NTP ) / ( 1 . - AillDI 
GO TO 152 

151 P « P3I NW»MTP J/1 1 . - A6II1II 

TRY TO FILL REQUIREMENT WITH PIPELINE PILOTS. 

152 IFIP.GT • A9I 1311 GO TO 160 

NEW PEOPLE REQUIREMENT LESS THAN PIPELINE 
FILL REQUIREMENT WITH PIPELINE PILOTS 

A9II3) - A9II3) - P 

IFI INO.EQ.O) GO TO 110 
GO TO 250 

NEW PEOPLE REQUIREMENT EXCEEOS PIPELINE 

160 Pll - A9II3) 

P12I m > P12I 13) ♦ Pll 

PI IS I NW» 14) > PllSINW* 14) ♦ Pll 
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C 

C IF NEW PEOPLE REQUIREMENT CANNOT 8E FILLED BY PIPELINE, CROSS TRAIN T 
C REHAINOER. 

C 

IF ( IND.EQ.O) CO TO 165 

C 

C CROSS TRAINEO PILOTS DO NOT FILL CROSS TRAINING REQUIREMENT, AND 
C THERE IS NOT ENOUGH TIME TO TRAIN NEW PEOPLE* 

C 

NYEAR » NY ♦ NBYR 
WRITEI6,AD13» NYEAR, NW, NTP 

AO 1 3 FORMAT ( 2 7H0RE SERVES HAVE BEEN CALLEO* /5X , 9HFOR YEAR ,I2,11H, WP. S 
1YS. *12, ’3H, PILOT TYPE ,II,69H, CROSS TRAINING REQUIREMENT CANNOT 

2 BE FILLED THROUGH CROSS TRAINING «/5X, 102HTHERE IS NOT ENOUGH TIME 

3 TO TRAIN NEW PEOPLE AND THERE ARE NOT ENOUGH PIPELINE PILOTS TO F 
AILL OEFICIT.) 

C 

C 

C CALL RESERVES 
C PRINT ERROR MESSAGE 
C 

GO TO 600 
C 

165 P7 - P2( NW, NTP ) - A9lI3)*(l. - A6III)) 

api m * o. 

P3 I NW, NTP I « P3I NW, NTP ) ♦ P7 
C 

GO TO 500 

250 PI3 * P3INW,NTP)/( 1. - A6(Il)l 
Pll « P1I ♦ P 1 3 
P12I 1 3 > « P 12 1 13) * P 1 3 
P11SINW.IAI * PLIS(NW.IA) ♦ PL3 
C 

IF! IPIPE.NE.O) GO TO 600 
GO TO 153 
C 

500 Pft * 0. 

P9 * 0. 

P10 * 0. 

1FIP3INW.NTP) .GT.O.) GO TO ?2> 

C 

600 XN * NY 

II * I NT I XN - T1 ♦ .5) 

PP * A5AU,NW,NTP)*Ai< l.NW.NTPl - P10 ♦ A6 1 I 1) *1 P84P94Pl0*Pl I ) 
P6INY ) * P61NY) ♦ PP 
IFIP3INW,NTP).LE.O.) GO TO 8000 
IF ( IA.FQ.999) GO TO 8000 
PRSINW, IA ) > P8S( NW, I A ) ♦ P8 
IFI IA1.EQ.999) GO TO 8000 
P9SINW, IA1 )* P9SI NW, I A 1 )♦ P9 
PIOSINW, IAII* PlOSlNW, I A L J ♦ PIO 
8000 P3F » CP8 ♦ P9 ♦ P10)*(I. - A6(I1)) 

Pll * Pll*(l. - A6< 1 1 ) ) 

PTGINW.NY) « PTG<NW,NV) ♦ pll ♦ P*F 
GO TO 8002 



o 
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800? NYE AR * NY ♦ NBYR 

A > A1I2,NW,NTP)*A5<2, NW.NTP) 

AA * >U<2,NW,NTP)*A5A(2, NW.NTP) 

C 

IFINTP.EQ.l) UPG * 0. 

IFINTP.EQ.2) UPG * PJ2INW) 

IFtNTP.EQ.3) UPG * PJ3INW) 

C 

WRITE (6, 20123 NYEAR, NW.NTP, Al I 2 ,NW,NTP) , A , AA. Pi I NH» NTP » t 
1 P2INW.NTP), Pll, P3A» P3F » UPG 

2012 FORMAT 1 1H0.I2.4X, I2.6X, I1.3X.F6.0, 1X.F9.2 , 2X, F9. 2, 2X , F9.2, 3X 
1 F9.2,4X,F9.2,6X,F9.2,8X,F9.2,6X,F9.2> 

C 

C ACCUMULATE YEAR* S TOTALS 
C 

21 * 21 ♦ Al<2, NW.NTP) 

22 = 12 ♦ A 

23 * 23 ♦ AA 

24 * 2* ♦ PUNK, NT?) 

25 * 25 ♦ P21NW.NTP) 

26 * 26 ♦ Pll 

27 « 27 ♦ P3A 

28 * 28 ♦ P3F 

29 * 29 ♦ UPG 
C 

LINES - LINES ♦ 2 
IFILINES.lt, 55) GO TO 6C3 
WRtTEtb,2010) 

WRITEI6, 20111 
LINES * 8 
C 

603 IFlNTP.G'z.S) GO TO 650 
NTP * NTP ♦ 1 
GO TO 100 

650 IFiNW.GE.NWPN) GO TO 700 
NW * NW •* 1 
NTP « 1 
GO TO 100 



CHECK CROSS TRAINING SOURCES TO FILL CROSS TRAINING REQUIREMENT 

726 IND * 1 
XN * NY 

II • I NTI XN - T1 ♦ .5) 

14 * INTI XN - T1 - S1II1, NW.NTP) ^ .5) 

IF! I4.EQ.0I [4 * 21 
IF I 14.LT.0) 14 - 999 

IP STORES THE PREFERENCE NO. OF THE SOURCE BEING USEO. 

750 IFUNY.NE. D.OR.I INOC(NW.NTP) .NE.l)) GO TC 751 

15 « 3 
GO TO ?60 

751 IP * 1 
C 

O 

ERIC 
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C FIND thc source with PREFERENCE NO. ! P 

755 IF (NAIOINW) .NE . IP ) CO TO 770 

SOURCE A HAS PREFERENCE NO. IP 

IS - I 
GO TO 760 

770 IFTNAll (NW) .NE. IP) GO TO 780 

SOURCE B HAS PREFERENCE NO. IP 

IS = 2 
GO TO 760 

780 IF(NA12INHl .NE. IP) GO TO 700 

SOURCE C HAS PREFERENCE NO. IP 

IS = 3 
GO TO 760 
790 WRITEI6, 3090) 

3090 FORMAT! 7AH 1 PR EFERENCE NO. HAS NOT BEEN ASSIGNED TO ONE OF THE CROS 
IS TRAINING SOURCES) 

CALL KIT 

CHECK WHETHER ENOUGH TIME EXISTS TO CROSS TRAIN IN THIS SOURCE 
760 XN = NY 

IF( (NTP.EU. H .AND. IT IS.EQ.2) .Oft. I I S.EQ.3) ) ) GO TO 761 
S - S l ( I 1 > NW t NTP ) 

I A 1 r 
GO TO 762 

7b l S = SI I I 1 ,NW, 2) 

I A 1 * INTIXN - T 1 - S ♦ .5! 

I F ( IA1.F0.0) I A I = 21 
IF! m .LT.Ol 14 = 999 

76? TIME = T 1 + S 

IFITIMF.LE.XN) GO TO 765 

IF( CNY.EO. 1). ANO. I INDC f NW.NTP) .EQ. 1) ) GO TO 765 

THERE IS NOT ENOUGH TIME TO CROSS TRAIN IN THIS SOURCI . 

CHECK WHETHER THIS SOURCE FAS PREFERENCE 3. 

IF SO, CALL RESERVES. 

IF NOT, FIND SOURCE THAT IS NEXT PREFERRED. 

IP * IP * 1 

IF I IP.GT.3) GO 10 767 

GO TO 765 

ENOUGH TIME EXISTS TO CROSS TRIN IN THIS SOURCE 

765 IFIIS.FQ. 3) GO TO 785 

IM(NA7(NVi).E0.1) .AND. (IS.EO. D) GO TO 776 
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I F ( !NA7 (NW ) - EG . 0 ) .AND. ( IS . EQ . 2 ) ) GO TO 775 





CALL CROSS! A6 ( 11), 
GO TO 800 


P3(NW,NTP) , 


P5, 


P* 


IC, 0) 


775 


CALL CROSSU6! I I), 
GO TO 800 


P3( NNsNTP) , 




P* 


IC, 0) 


785 

800 


CALL CROSS! A6( 1 1 I , 
IF! IS.EO. 1) PB * P 


P3 ( NW, NTP ) , 


PP6, 




P, IC 



IF ( IS. TO. 2) P9 « P 
I F ( IS.E0.3t P10 = P 

check whether source has filled cross training requirement. 

IC * 1 MEANS SOURCE HAS FILLED REQUIREMENT. 

IC * 2 MEANS SOURCE HAS NOT FILLEO REQUIREMENT 

I F ( IC.EQ. 1 1 GO TO 600 

PREFERRED SOURCE HAS NOT FILLEO CROSS TRAINING REQUIREMENT. 

check whether all sources have been considered. 

IF NOT, CHECK FOR NEXT PREFERREO SOURCE. 

IF ALL SOURCES HAVE BEEN CONSIDERED, CHECK WHETHER THE 

CROSS TRAINED PEOPLE ARE NEEDED TO SUPPLEMENT NEW PEOPLE REQ. 

766 IP * IP ♦ I 

I F ( lP.LE.3t GO TO 755 
IF ( IND.NE.O) GO TO 105 



CALL RESERVES 
PRINT ERROR MESSAGE 

767 NYEAR * NY ♦ NBYR 

WRITE!6,4020» NYEAR, NW. NT? 

4020 FORMAT I27H0RESFRVES HAVE BEEN CALL ED. /5X, 9HFOR YEAR ,12,11H, WP. S 
1YS. * 1 2, L 3H, PILOT TYPE ,I2,80H, CROSS TRAINING REQUIREMENT (WHICH 
2 INCLUDES PART OF THE NEW PEOPLE REQG IRE MENT ) / 5X, l 7HC ANNOT BE FILL 
3ED. > 

GO TO 600 

COMPUTE THE DESK JOB INVENTORY FOR YEAR NY. 



700 IFINY.EQ. 1) GO TO 90 
P6INY) * P6 (NY) * (1. 
GO TO 95 

90 P6I NY ) * PbCNYt ♦ ( l. 



AMNY - l ) ) *P6 1 NY - 1) ♦ P4 ♦ PS 
AM 2 1 ) >*A3 ♦ P4 ♦ P5 ♦ SURPLS 



SET NUMBER OF UPT GRADUATES IN BASE YEAR 

Pl?( 21 1 « P 12 ( 2 L ) ♦ SURPLS/U. - A6(lt) - A20I21) 



95 IFIP6INY) .GE.O. ) GO TO 96 



DESK JOB INVENTORY IN YEAR NY IS NEGATIVE. 
PROGRAM EXECUTION HAS BEEN HALTEO. 



NYEAR * NBYR ♦ H't 
WR I TC( 6,97 ) NYEAR 

97 FORMAT! 39H10ESK JOB INVENTORY AT THE ENO CF YEAR 





, 12, l 3H IS NCG4TI 
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1 VE . / 38HOPROGR AM EXECUT ION HAS BEEN TERMINATED) 

CALL EXIT 

96 DO 60 J = l.NWPN 
DO 60 X * 1,3 
Al(l, J, XI * A 1 ( 2 , J, X I 
A5d,),K) * A5 1 2, J ,K ) 

A5A( 1 , J,K ) « A5A ( 2, J,K I 
A1(2»J,K) » 0. 

A2IJ.K) = 0. 

A5(2, J,K) x 0. 

60 A5A(2,J,K) = 0. 

WRITE YEAR’S TOTALS 

WR I TE 1 6,40.21) 21, 22, 23, 24, 25, 26, 27, 28,29 
4021 FORMAT ( 14H0YE AR f $ TOTAL S, 4X, F7.0 , l X , F9.2, 2X , FS. 2 , 2X , F9 . 2, 3X , F9. 2, 
14X,F9.2v6X,F9.2,8X,F9.2,bX,F9.2) 

61 21 = 0. 

22 * 0 . 

23 = 0. 

24 * 0. 

26 * 0. 

26 * r. 

27 = 0. 

28 = 0. 

29 = fj. 

NY * NY ♦ 1 

IFTNY.GT. INLYR - N3YRJI 00 TD 2000 
WR I TE 16,2010) 

2010 FORMAT! lHl,47X, 3 7HP I LOT MDOEL OUTPUT - MAIN INFORMATION//) 

WR I . E( 6,2011) 

2011 FORMAT (3H0YR,2X, 6H WE A PON, 2X,5HPILOT,2X,5HPILOT,2X,9HLOSS FRDM,3X, 

1 7HLDSS TD, 3X , 8HNFT RFO/, 3X , 1 lHND. OES IRE0.2X, 12HND. OBTAINED, 3X, 

2 11HN0. 0ESI«fc0,6X, 12HNC. DBT A INE0,6X, 6CPI LOTS/7 X, 3HSYS, 4X , 

3 4HTYPF,3X»3HREQ» 6X» 4HUS4F » 4X , 9HDF SK J0BS,2X,9HSIJRPLUSE' , 3X, 

4 8HTHKU UPT , 5X, 8HTHRU UPT.5X, 15HTHRU X TRAINING, 2X, 

5 15HTHRU X TR A ! N I NG, 3X , 3HUPGR ADEO/ 24X , 24H ( YE AR • S END) I YEAR * S END)/ 
6) 

I JN2S = 8 
GO TO 16 

CALL OUTPUT(NHYR,NLYR,NWPNI 
WR t TF( 6 ,2020) 

FORMAT OHl»45X,42H)NVENTDRY OF DESK JOB PILOTS AT YEAR'S ENO/) 

NN * N'.YR - NBYR 
DO 925 I * 1 , NN 
NNY * I ♦ NBYR 
WRITE (6,2021) NNY, P6(I ) 

FORMAT (IH0»12»12X«F9.2) 



2000 

2020 

925 

2021 



0 
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C READ IN A 1 6« A17, A18« AH, A20, A27, A28 * A29 FOR 
C THE BASE YEAR AND ALL SUCCESSIVE YEARS 

C 

CALL READ7INBYR) 

C 

C READ IN A? I , A22 , A23, A2A, A25, A26 FOR THE YEAF. AFTER THE BASE YEAR 
C AND ALL SUCCESSIVE YEARS 

C 

CALL READ8INBYR) 

C 

C 

DO 5015 I ■ 1,25 
PP13I I ) ■ 0. 

PIMM - 0. 

PI 5 1 I ) * 0. 

5015 Pl6( I) * 0. 

C 

C 

C GIVEN THE UPT GRADUATES IN A PARTICULAR YEAR N, COMPUTE THE 
C NO. OF PILOTS ENTERING OTS IN YEAR I3C, AF ACAD IN YEAR 1 3A, 

C ROT C IN YEAR I3B. 

C II IS THE BEGINNING YEAR OF UPT IF THE LAST YEAR IS M 
C 12 IS THE LAST YEAR OF COMMISSION TRAINING IF THE LAST YEAR 
C OF UPT IS N 

C 

N ■ l 
XN - 1. 

Ill * 0 

50112 CALL TTIME) XN,S3(N) , TA , SA1 , SA2, SA3 , 1 1,12, 1 3A, (38, I3C, A67, 130) 

C 

IFIP12IN) .EQ.O.I GO TO 6000 
C 

IFII1.E4.2M II - 0 

ITHIl - M.LE.IIM GO TO 501A 

X - II - 1 

J * III ♦ 1 

00 5011 I ■ J,K 

A16IM > 0, 

A17II) - 0. 

A18III * 0. 

A19IM * 0. 

5011 A20IM * 0. 

C 

50 LA IF(Il.EQ.O) II » 21 

IF! II. NE. Ill) GO TO 5016 
A - 0. 

GO TO 5020 
C 

5016 AA= A16(11)*( l.-A21(N))+A17M 1)*(1.-A?2(N))*A18( Il)M 1.-A2AINM 
A - AA+ A 191 I 1)*I 1.-A25IN) ) 

IF I FI 2 IN) .GTk A ) GO TO 5020 
C 

C REOUCE ROTC OUTPUT 
C 

A 1 7 ( 1 1 ) » (P12(N)-A*A17I11)*( 1.-A22IN)))/! 1.-A22INM 
IFU17MM.GE.0.) GU TO 5039 

O 

ERIC 
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NY > 12 ♦ NBYR 

If* I2.E0.2II NY * NBY« 

WRITE! 6*51001 NY 

5100 FORMAT! 2SH1ROTC GRADUATES IN YEAR ,I2,22H NUMBER LESS THAN TErO) 

GO TO 5030 
C 

c 

c requirement from ots 
c 

5020 P * (P12!Nl - A I / 1 1 . - A23INH 
PPM! 12) * PP13! 121 ♦ P 
GO TO 5035 
C 

C OTS ENTRANTS 
C 

5030 P ' 0. 

5035 P1AII3C) * P15II3C) ♦ P/!l. - A29U2I) 

C 

IFIPIAU3CI.LE.A65I GO TO 5031 
C 

C OTS ENTRANTS IN YEAR I 3C EXCEED OTS CAPACITY. 

C 

I F I N A66.NF. 1 ) GO TO 5032 
C 

C OTS EXPANSION IS ALLOhEO 
C 

IF! I3D.GT.2I) GO TO 5032 
C 

C THER IS ENOUGH TIME TO EXPANO OTS 
C 

GO TO 5031 
C 

C EITHER OTS EXPANSION IS NOT ALLOWED OR THERE IS NUT ENOUGH TIME TO EXPAND. 
C 

5032 NN * I 3C 

IF! I3C.GT.20) NN« 20 - I3C ♦ 1 
NYEAR * NBYR ♦ NN 
WRnF.16,5033) NYEAR 

5033 FORMAT! 36HIOTS ENTRANTS EXCFEO CAPACITY IN YEAR ,12/ 

LT1H EITHER EXPANSION IS NOT ALLUWEO OR THFrtE IS NOT ENOUGH TIME TO 
2 EXPAND.) 

C 

5031 tmi.FU.im GO TO 6001 

c 

c AT ACAD FNTRANTS 
C 

PI5II3A) «= At6IIl)/(l. - A27! 12)1 



ROTC ENTRANTS 



PI6II3BI « Al’I lll/ll. - A2B1I2I) 

GO TO 6001 
C 

6000 A16I 111 > 0. 

A 1 ? I (VI « 0. 

AIM 1 1 1 • 0. 
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A 19 ( 1 1 ( = 0. -57- 

A20II1) = 0. 

6001 N = N * 1 

XN * XN ♦ 1. 

Ill * 11 

IF ( (N ♦ NBYR).LE. NLYR) GO TO 501? 



N 1 « NLYR - N8YR 
IFII1.FQ.21) 11 * 0 
IFII1.GE.N1) GO TO 5050 
N2 ■ II ♦ 1 
DO 5040 I « N2«N1 
A16I 11*0. 

AIT( 0*0. 

A18I I) * 0. 

A19III * 0. 

5040 A20I ! ) * 0. 

5050 CALL 0UTP(N3YR»NLYR*PP13»P12»P14«P15|P16«A20»ICAP) 

RETURN 

END 



SUBROUTINE REA02I T1»T2« T3*T4« $41, $42, S43* A64, A3.C1, A65.NA66, A67I 
READ TYPE 2 INPUTS 

2002 F0RMAT(ll«4X«6(F4.0*2X)t2(F6.0tlX) ,F6.0«1X«I 1«1X«F4.0) 

READ! 5*2002) I, Tl, T2« T3* T4« S41, S42, S43» A64«A3*C1, 

1 A65» NA66, A67 



I F I I.EQ.2) GO TO 3 
WRI TE ( 6, 2003 ) 

2003 FORMATI 36H1* 2* CARD IS HISSING FROM INPUT DECK) 
CALL EXIT 



CONVFRT INPUTS FROM DAYS TO FRACTIONS OF A YEAR. 

3 T 1* Tl/365. 

T2- T 2/365. 

T3 - T3/365. 

T4 « T4/365. 

S41 « S41/365. 

5*2 - S42/365. 

S43 * $43/365. 

A64 * A64/365. 

A67 « A67/365. 



O 

ERIC 
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c 



RETURN 

END 
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SUBROUTINE READ4 

CONMON/HEAP/ NA7I80), NAI0I80)> NA 1 1(80), NA12I80) 
C 

C READ TYPE A INPUTS 
C 

1 READ( S, 1000) I, NH, II, 12, 13, 14, IC 
1000 FORMAT III, 13, AX, 41 1 A, AX ), 39X, ID 
IF(I.NE.A) GO TO 2 

!F((NH.LT.0).DR.(NW.GT.80)) GO TO 3 
NA7INN) ■ II 
NAIOINM) ■ 12 
NAIUNH) * 13 
NAU(NW) * IA 
C 

IF1IC.F0.9) RETURN 

GO TO I 



2 WR I TEI6, 1020) 

1020 FORMA? I 82HICARD READ IS NOT A TYPE A CARD - CHECK FOR A MISPLACED 
ICARD IN THE TYPE A SECTION) 

CALL EXIT 



3 HR I TE (6, 1030) 

1030 FORMAT 1 6IHIWE A PON SYSTEM NUMBER ON TYPE A CARD EXCEEDS ALLOWABLE N 
1UM8ER ) 

CALL EXIT 



RETURN 

END 



SUBROUTINE READ51NY,NBYR,NH*NTP* IC ) 

COMMON/DATA/ AI(2,B0,3), A2(80,3), 45t2,80,3), A5A(2,0O,3), 

I Sif 21,80,3) 

READ TYPE 5 INPUTS 

READI5* 1000) I, NYR, NH, NTP, YI, Y2, Y3, YA, 35, Y6, IC 
1000 FORMAT I II,I3,AX,2IIA,AX),F6.0,AX,3(F6«A,AX),2(EA.0,2X),3X,I1) 
C 
C 

o 

ERIC 
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I Ft I • N E • t> I GO TO A -59- 

N * NYR - N8YR 

IFIN.NE.NY) GO TO 8 
IFICNW.LT.0K0R.INW.GT.80I) GO TO 9 
IFtCNTP.LT. OK OR .(NTP.GT. 3) ) GO TO 10 
IFCNY.NF.O) GO TO 16 

II * 1 

1 2 * 21 
GO TO 17 
16 11 « 2 
12 * NY 

17 Alt lltNWtNTP) « Y 1 
A2CNW.NTP ) « Y2 
A5t lltNWtNTP) * Y3 
A5AC I l«NWfNTP) « YA 
IFINTP.NE.l) RETURN 

Sll 12, NW, 1) * Y5/365. 

SIII2,NW,21» Y6/365. 

SIC I2,NW, 3) * Sit 1 2, NW, 2) 

RETURN 



A MR I TEI 6, 1050) 

1050 FORMAT tBOHICARO READ IS NOT A TYPE 5 CARO - CHECK FOR A MISPLACED 
ICARO IN A TYPE 5 SECTION) 

CALL EXIT 



8 WRITEI6,1051) 

1051 FORMAT t A6HIA TYPE 5 CARD OOES NOT CONTAIN THE RIGHT YEAR) 
CALL EXIT 



9 WRITEIfc, 1052) 

1052 FORMA T C 58H1 WEAPON SYSTEM NO. ON TYPF 5 CARO EXCEEDS ALLOWABLE NUMB 
TER) 

CALL EXIT 



10 WRITEI6, 1053) 

1053 FORMAT (57H1PILOT TYPE NO. ON A TYPE 5 CARO EXCEEOS ALLOWABLE NUMBE 
1R) 

CALL EXIT 
C 
C 

END 



SUBROUTINE REA07INBYR) 

C0MM0N/INF01/ A1 6 1 25 ) < A17C25), A1CI22K A19C22I, 
1 A77I22), A2M22). A29I22) 

C 
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C READ TYPE 7 INPUTS -60- 

C 

00 2 I * 1,25 
A 161 I ) = 0 . 

2 A ? 7 1 1 ) ^ 0. 

C 

NYR = N8YR 

1 READ(5,20> I, NY, XI, X2, X3, XA, X5, X6, X7, X8, IC 
20 FORMAT! 11, 3X, 1 2, 5< F6.0 • AX > • 3! F A. 3 , 2X) ,5X,ll) 

IFd.NE.7l GO TO 10 
IF1NY-.NE.NYR) GO TO 11 
NY - NY - NBYR 
1F1NY.EQ.O) NY » 21 
A161NY) * XI 
A 1 7 1 NY ) * X2 
A 18 (NY 1 * X3 
A191NY) » XA 
A271NY) * X6 
A281NY) * X7 
A291 NY ) * X8 
C 
C 

1 F 1 IC.EQ.9) RETURN 
NYR * NYR ♦ 1 
GO TO 1 

C 

10 WRITElb.lOOO) 

1000 FORMAT (82H1CARO REAO IS NOT A TYPE 7 CARO - CHECK FOR A MISPLACED 
1CAR0 IN THE TYPE 7 SECTION! 

CALL FXIT 
C 

11 WRITE16, 1001) 

1001 FORMAT I A6H1A TYPE 7 CARD DOES NOT CONTAIN THE RIGHT YEAR) 

CALL EXIT 

C 

ENO 



SUBROUTINE REA081NBYR) 

C 

COMMON/ INF02/ A21121), A22121), A23I21), A2A(21), A251211, A26121I 

0 

C READ TYPE 8 INPUTS 
C 

NYR * NBYR ♦ 1 

1 RCAO! 5, 20) I, NY, XI, X2, X3, XA, X5, X6, IC 
20 FORMAT! I1,3X, 1 2, 6 ( FA . 3 , 2X ) , 37 X , III 
IFII.NE.8) GO TO 10 
1FINY.NE.NYR) GO TO 11 
NY » NY - NBYR 
A211NYI * XI 
A22INY) * X2 
A231NY) « X3 
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-61- 






A2AINY) = 
A25INY) = 
A26CNY I * 



X* 

X5 

Xfe 



IFUC.FQ.SI RETURN 
NYR * NYR ♦ 1 
GC TO 1 

10 WRITEIfc.1000) 

1000 FORMAT I82H1CARD READ IS NOT A TYPE 8 CARD - CHECK FDR A MISPLACED 
ICARO IN THE TYPE 8 SECTIUN) 

CALI EXIT 

11 WRITEIfc. 1001) 

1001 FORMAT I46H1A TYPE 8 CARD ODES NDT CONTAIN THE RIGHT YEAR) 

CALL EXIT 

END 



SUBROUTINE CRDSSIA6, P3 , PI , P.IC.IFLAG) 

DETERMINE WHETHER CROSS TRAINING REQUIREMENT P3 CAN BE FILLED 
BY A GIVEN SOURCE OF PILOTS NUMBERING PI. IF 11 1 AG * 0, THE SOURCE 
IS EITHER FIGHTER OR BOMBER/CARGO. IF I FLAG * W THE SOURCE IS 
DESK JOBS. 

PP * P3/I1. - A6> - PI 
IFIPP.LE.O.) GD TD 10 

THE CROSS TRAINING REQUIRE KEHT CANNGI BE COMPLETELY FILLEO BY THE 
GIVEN SOURCE. USE THE PI PILOTS. RETURN TO THE MMN ROUTINE TO 
DETERMINE THE NEXT PREFERRED SOURCE TO FILL THE DEFICIT. 

P3 * P3 - P1*U. - Ab) 

P * PI 
PI * 0. 

IC « 2 
RFTURN 



THE CROSS TRAINING REQUIREMENT CAN BE COMPLETELY FILLEO BY THE 
GIVEN SOURCE. 

10 IFC IFLAG.EQ.l) GD TD IS 
C 

C THE GIVEN SOURCE IS EITHER FIGHTER DR BOMBER/CARG J. 

C 

PI * PI - P3/U. - Ab» 

GO TD 20 
C 

C THE GIVEN SOURCE IS DESK JDBS. 



o 
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15 Pi * Pi - P 3 
20 P = P3/U. - A6> 
IC = I 
RETURN 
END 



SUBROUTINE OUTPI NBVR , NLYR , PPi 3 ,P 1 ? , PI 4 , PI 5 , P16, A20 1 ICAP) 
C0MM0N/INF01/ A16I 25) » A17I25), A18I22), A19I22), 

1 A27( 22) , A28I22), A29I22) 

OIHENSION PP13II), P12I1), P14I1I, P15<1), P16(l), IC4PI 1 ) , A20( 22 ) 
C 

MRITEI6, 10) 

10 FORPAM IHl ,45X, 40HPIL0T MODEL OUTPUT - COMMISSION TRAINING// 

1 3H0YR,5X, 16HAF ACAD ENTRANT S , 5X , 1 7H4F ACAD GRADUATE S , 5X , 

2 I3HR0TC ENTRANTS ,5X, 14HR0TC OR AOUATE S , 5 X , 12H0T S ENTRANTS, 5X, 

3 13H0TS GRADUATES/) 

C 

N * 25 

33 NVR = NBYR - IN - 21) 

15 HR IT F. (6,20) NYP, , P 151 N > , Alb! N> , Pl6( N> , A17 I N ) , P14 1 N ) , PPI 3 ! N > 

20 FORMAT ( IHO, I2*9X»F9.2, 12X,F9.2,llX,F9.2,l0X,F9.2,9X,F9.2, 

) 8X» F9 . 2) 

IFIN.LE.20) GO TO 25 
N * N - 1 

IFIN.GT.20) GO TO 30 
N * 0 

NYR = NBYR 
25 N * N ♦ 1 

NYR = NYR ♦ 1 
1 F I NVR .GT . NLYR ) GO TO 5C 
GO TO 16 
C 

SO WRITE (6, 100) 

100 FORMAN 1H1, 38X,55HPILOT MODEL OUTPUT - ENTRANTS INTO UPT FROM SIX 

1 SOURCE S//3H0YR, AX, 7HAF ACAD, 6X , AHRUTC , 6X , 3HOTS ,5X , 10HRAT60 OFF. , 

2 AX* 9HNON-KAT EO» 4X,6H0THERS,4X ,9HTGT AL UPT ,'»X,9hTOTAL UPT, AX, 

3 13HUPT EXPANDED /55X , 4HOF F . , l 7X ,6HENTR ANT S , 6X , 5HGRA0S/ ) 

C 

N * 21 
NYR * NBYR 

120 SUP * AUIN) ♦ A17IN) ♦ A1BIN) ♦ A19IN) ♦ A20IN) ♦ PP131N) 

C 

IF I ICAP(N).NE.l) GU TO 125 
C 

WRITE I 6, 121) NYR, A16(N),A17IN),PP13(N),A1 SIN), A19IN), 4201 N), 

1 SUM, P 1 21 N) 

121 FORMAT I IHO, I2,3X,F9.2»2X,F9.2»1X,P9.2,2X»F9.2,5X,F9.2,2X,F9.2, 

2 3X,F9.2,AX,F9.2,9X,3HYrSI 
GO TO 110 

C 

125 WR ITF I 6, 126) N3 9 , A 16( N I , A 1 7< N > , PP l 3 ( N) , 41 8 ( N) , A1 91 M , 4201 N ) , 
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jrvtrv ; i* 



1 SUM,P 121 N) ' DJ ‘ 

126 FORMAT ( 1 H 0 , 12 , 3 X . F 9 . 2 , 2 X, F 9 . 2 . IX, F 9 . 2 , 2 X , F 9 . 2 , 5 X , F 9 . 2 , 2 X , F 9. 2 , 

2 3 X,F 9 . 2 ,AX,F 9 . 2 , 10 X. 2 HNO) 

C 

130 IFtN.ro. 21 ) N r 0 
N = N ♦ 1 
NYR * NYP. ♦ 1 
If (NYR.GT .NLYft I RETURN 
GO TO 120 
C 

ENO 



SUBROUTINE 0UTPUT(N8YR,NLYR,NMPNI 

common/save/ ptgi8o, 21>. p8S<8o,2i), P9siao,2ii, pios(eo, 2 n, 

1 P 1 15-1 80, 211 
00 100 I = 1 i NWPN 
WRITE' (6,10) I 

I > FORMAT! IH1,A5X,A1HPIL0T MOOEL OUTPUT - PILOTS ENTERING CCTS/58X, 

1 1AHWEAP0N SYSTEM ,12//) 

WRITE! 6, !. 1 1 

II FORMAT, 3H0YR, AX, 8HFR0M UPT.AX, 16HFKGM SIMILAR A/C, AX, 19HF80M CISSI 
1MILAP A/C, AX, 1AHFR0M DESK JOBS, AX, 1AHT0TAL ENTRANTS, AX, 

2 45HTOTAL GRADUATES/) 

J X 0 

5 IF1J.E0.0I J * 2 l 

SUM-P9S1 I » J ) ♦P9SI I , J ) + P 10S( I , J ) + P 1 l S ( I , J ) 

IF1J.E0.21) GO TO 6 
NYEAR - NBYR ♦ J 

WRITE16.12) NYFARfPHS! l,J),P8S(I,J), P9S1 l,J),P10S(ItJl, SUM, 

1 PTGM.J) 

12 FORMAT I IHO, I 2 , 3X, F9. 2 , 8X , F9 . 2 , l 3X , F9 . 2, 10X ,F 9 . 2, 10X, F9 . 2 , 9X , F9. 2 ) 
GO TO 7 

6 MR1TE16, 12) NBYP. , Pll S ( I ,J)« P8SH,J>, P9SU,J), P10SU.J), SUM 

7 IFl J.E0.21 ) J * 0 
J * J ♦ 1 

IFUJ ♦ NBYR) .GT.NlYRI GO TO 100 
GO TO 6 
100 CONTINUE 
RETURN 
ENO 



SUBROUTINE TTI HE (XN,S 3 ,TA,SA 1 ,S / « 2 ,SA 3 , 11 , 12 , I 3 A, 1 38, 1 3 C, A 67 , 1 30 ) 

1 XI « XN - S 3 

IMXl.LE.O.) GO TO 5 
II * INTlXl ♦ . 5 ) 

IF! I!. GO . 01 11-21 
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GO TO 6 -64- 

5 Xll = -XI 

11 = INTI Xll ♦ .5) ♦ 21 

11 IS THE BEGINNING YEAR OF UPT 

6X2= XI- T4 

IMX2.LE.0.) GO TO 7 

12 - INKX2 ♦ .51 
IF ( I2.E0.0) 12 = 21 
GO TO R 

7 X21 - -X2 

12 = INTIX21 ♦ • 5 i ♦ 21 

12 IS THE ENDING YEAR OF COMMISSION TRAINING 

3 X3A = X? - S41 

IFIX3A.LE.0.) GO TO 9 
1 3 A = INTIX3A ♦ .51 
I F I I 3A.EC.OJ I3A = 21 
60 TO 10 
9 X31 = -X3A 

I3A - 1NTIX3I ♦ .5) ♦ 21 
I3A IS THE FIRST YEAR OF AF ACAD TRAINING 

10 X3R = X2 - S42 
1MX3R.LE.0.) GO TO 11 
I3R = INTIX3B ♦ .55 
IF( I3P.CO.0) I 3B « 21 
Gfl TO 12 

11 X 3 1 = -X3R 

I3R = INTIX31 ♦ .5) ♦ 21 

I3B IS Tnf FIRST YRAR OF RCTC TRAINING 



12 X3C = X? - S43 
IFIX3C.LE.0. J GO TO 13 
I3C * INTIX3C + .51 
IFI I3C.F0.0) I3C * 21 
GO TO 14 

13 X31 = -X3C 

I3C * INTIX31 + .51 ♦ 21 

UC IS THE FIRST YEAR OF CIS TRAINING 



14 X3D = X3C - A67 
IFIX3O.LE.0.) GO TO 15 
130 * INTIX3D + .55 
IFH30.E0.05 130 * 21 
GO TO 16 

15 X3I * -X30 

13D * INTIX31 ♦ .5) ♦ 21 

130 IS THE FIRST YFAR OF OTS IF OTS IS EXPANOEO 
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